use warnings;
use strict;
use Data::Dumper;
use Cwd;

#require "ApnWrapper.pl";
require "utils/OpUtils.pl";

my $var;
my @arr;
my %hash;
my $tmp;


#my $obj = ApnWrapper->new ("apns-conf_1.xml");
#print $obj->getApnNum();

my @list = OpUtils::getOpByPlmn("46003");
#my $path = 'C:\Program Files (x86)\Notepad++\notepad++.exe';
#system($path, 'C:\a.txt');
print @list;

#print getcwd();



 